function [x]=mainGLC(seed)

x=[];
xant = seed;

for i=1:1:10000,
    %x(i) = 
 %   mod(((2^18+1)*xant+1),2.0^35)/2.0^35
    x(i)=mod(((2^18+1)*xant+1),2^35);
%    x(i) = 1
    xant = x(i);
end

x=x./2^35;